CD World Haziran 1997/CD World Haziran 1997.iso/Explorer Yardimcilari/PiXCL Tools/Odi_demo.px_/Odi_demo.px

Text File | 1996-08-06 | 5.1 KB | 157 lines

ODI_DEMO:
    SetColorPalette(GENERATE)
    ODI_Name$ = "ODI Demo"
    WinGetActive(Name$)
    WinTitle(Name$,ODI_Name$)
    UseCoordinates(PIXEL)
    DirGet(SourceDir$)
    WinShow(ODI_Name$,MAXIMIZE,Res)
    WinShow(ODI_Name$,TOPMOST,Res)
    UseBackground(TRANSPARENT,0,224,224)
    DrawBackground
    InfoMenu(REMOVE)
    WaitInput(100)  {let NT and 95 catch up}
    SetMenu("Exit",ODI_exit,
        ENDPOPUP)

    Set File_01$ = SourceDir$ + "\ov01.rle"
    Set File_02$ = SourceDir$ + "\ov02.rle"
    Set File_03$ = SourceDir$ + "\ov03.rle"
    Set File_04$ = SourceDir$ + "\ov04.rle"
    Set File_05$ = SourceDir$ + "\ov05.rle"
    Set File_06$ = SourceDir$ + "\ov06.rle"
    Set File_07$ = SourceDir$ + "\ov07.rle"
    Set File_08$ = SourceDir$ + "\ov08.rle"
    Set File_09$ = SourceDir$ + "\ov09.rle"
    Set File_10$ = SourceDir$ + "\ov10.rle"
    Set File_11$ = SourceDir$ + "\ov11.rle"
    Set File_12$ = SourceDir$ + "\ov12.rle"
    Set File_13$ = SourceDir$ + "\ovxx.rle"
    Set File_14$ = SourceDir$ + "\ov14.rle"

    UseFont("Arial",31,51,BOLD,ITALIC,NOUNDERLINE,0,0,0)
    DrawText(17,12,"TapeBack Data Inc ")
    UseFont("Arial",31,51,BOLD,ITALIC,NOUNDERLINE,255,0,0)
    DrawText(15,10,"TapeBack Data Inc ")

    UseFont("Arial",31,51,BOLD,ITALIC,NOUNDERLINE,0,0,0)
    DrawText(17,66,"TapeMax series")
    UseFont("Arial",31,51,BOLD,ITALIC,NOUNDERLINE,255,0,0)
    DrawText(15,64,"TapeMax series")

    UseFont("Arial",31,51,BOLD,ITALIC,NOUNDERLINE,0,0,0)
    DrawText(17,120,"9 track tape drives")
    UseFont("Arial",31,51,BOLD,ITALIC,NOUNDERLINE,255,0,0)
    DrawText(15,118,"9 track tape drives")

    UseFont("Arial",31,51,BOLD,ITALIC,NOUNDERLINE,0,0,0)
    DrawText(17,174,"and controllers.")
    UseFont("Arial",31,51,BOLD,ITALIC,NOUNDERLINE,255,0,0)
    DrawText(15,172,"and controllers.")


    UseFont("Arial",19,31,BOLD,ITALIC,NOUNDERLINE,0,0,0)
    Drawtext(32,622,"Select from the above menus, images,")
    UseFont("Arial",19,31,BOLD,ITALIC,NOUNDERLINE,120,240,240)
    Drawtext(30,620,"Select from the above menus, images,")

    UseFont("Arial",19,31,BOLD,ITALIC,NOUNDERLINE,0,0,0)
    Drawtext(32,656,"or 3D buttons to start !")
    UseFont("Arial",19,31,BOLD,ITALIC,NOUNDERLINE,120,240,240)
    Drawtext(30,654,"or 3D buttons to start !")

{ top row, MS-DOS or Windows demo }
    DrawSizedBitmap( 660,30,816,162,File_04$)
    DrawSizedBitmap( 820,30,976,162,File_05$)

{ Second row, PC interfaces, software and corporate information }
    DrawSizedBitmap( 20,220,176,352,File_01$)
    DrawSizedBitmap(180,220,336,352,File_02$)
    DrawSizedBitmap(340,220,496,352,File_03$)
    DrawSizedBitmap(500,220,656,352,File_05$)
    DrawSizedBitmap(660,220,816,352,File_06$)
    DrawSizedBitmap(820,220,976,352,File_08$)

{ Third row, tape drives and workstations, unused windows }
    DrawSizedBitmap( 20,380,176,512,File_09$)
    DrawSizedBitmap(180,380,336,512,File_10$)
    DrawSizedBitmap(340,380,496,512,File_11$)
    DrawSizedBitmap(500,380,656,512,File_13$)
    DrawSizedBitmap(660,380,816,512,File_13$)
    DrawSizedBitmap(820,380,976,512,File_14$)


    SetMouse(660, 30,816,162,Region_0,X,Y,
         820, 30,976,162,Region_0,X,Y,
          20,220,176,352,Region_0,X,Y,
         180,220,336,352,Region_0,X,Y,
         340,220,496,352,Region_0,X,Y,
         500,220,656,352,Region_0,X,Y,
         660,220,816,352,Region_0,X,Y,
         820,220,976,352,Region_Info,X,Y,

          20,380,176,512,Region_0,X,Y,
         180,380,336,512,Region_0,X,Y,
         340,380,496,512,Region_0,X,Y,
         500,380,656,512,Region_0,X,Y,
         660,380,816,512,Region_0,X,Y,
         820,380,976,512,Region_Info,X,Y)


    Button( 660,163,816,188,"MS-DOS Demo",Region_0,
        820,163,976,188,"Windows Demo",Region_0,
         20,353,176,378,"GTX-16 AT bus",Region_0,
            180,353,336,378,"XPT-8 AT bus",Region_0,
            340,353,496,378,"BL/2 Microchannel",Region_0,
            500,353,656,378,"Std Software",Region_0,
            660,353,816,378,"Opt Software",Region_0,
            820,353,976,378,"Corporate",Region_Info,
         20,513,176,538,"SCSI 9-track",Region_0,
        180,513,336,538,"Pertec 9-track",Region_0,
        340,513,496,538,"Parallel 9-track",Region_0,
        500,513,656,538,"region 12",Region_0,
        660,513,816,538,"region 13",Region_0,
        820,513,976,538,"CONTINUE !",ODI_exit)

Wait_for_Input:
    WaitInput()


Region_0:
    MessageBox(OK,1,INFORMATION,
"A PiXCL 4.0 application can have both buttons and
mouse active areas made of images loaded from your
hard disk. This demo makes use of the Left Mouse
only, but there are an additional six Left and
Right modes also available.

Selecting an image could be programmed to display
and / or print product information.",
    "Active Area or Button selected",Res)
    Goto  Wait_for_Input



Region_Info:
    MessageBox(OK,1,INFORMATION,
"This is a new 32 bit Windows application written in PiXCL,
and started by the PiXCL Run(...) command. It shows how left
mouse active areas, 3D buttons and bitmap display might be
used in a hardware demo program written in PiXCL.

Any other Windows application, eg NotePad, Paintbrush, or
third party program can be started by PiXCL.

Click the 'Continue' button or 'Exit!' on the main menu bar
to return to the PiXCL Tools demonstration.

Disclaimer:
As far as we know, TapeBack Data Inc. is a not a real company.",

    "Running other Applications...",Res)

    Goto  Wait_for_Input


ODI_exit:
    End